home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / prolog / ai.prl / opnprlg1.hqx / Open Prolog / Open Prolog.rsrc / CODE_5_macProlog.txt < prev    next >
Text File  |  1993-04-15  |  9KB  |  159 lines
  1. # near model CODE resource
  2. # entry label at 0x0000
  3. export_263:
  4. entry:
  5. 00000000  41FA 0032                lea.l      A0, [PC + 0x32 /* 00000034 */]
  6. 00000004  302F 0004                move.w     D0, [A7 + 0x4]
  7. label00000008:
  8. 00000008  4A50                     tst.w      [A0]
  9. 0000000A  6710                     beq        +0x12 /* 0000001C */
  10. 0000000C  B050                     cmp.w      D0, [A0]
  11. 0000000E  41E8 0004                lea.l      A0, [A0 + 0x4]
  12. 00000012  66F4                     bne        -0xA /* 00000008 */
  13. 00000014  3028 FFFE                move.w     D0, [A0 - 0x2]
  14. 00000018  4EFB 001A                jmp        [PC + D0.w + 0x1A]
  15. label0000001C:
  16. 0000001C  4E56 0000                link       A6, 0
  17. 00000020  2D7C 0000 000C 0012      move.l     [A6 + 0x12], 0xC
  18. 00000028  4E5E                     unlink     A6
  19. 0000002A  2F57 000A                move.l     [A7 + 0xA], [A7]
  20. 0000002E  4FEF 000A                lea.l      A7, [A7 + 0xA]
  21. 00000032  4E75                     rts
  22. 00000034  0007 00FA                ori.b      D7, 0xFA
  23. 00000038  0012 0018                ori.b      [A2], 0x18
  24. 0000003C  0000 4E75                ori.b      D0, 0x75 /* 'u' */
  25. 00000040  894D 4143                pack       -[A4], -[A5], 0x4143
  26. 00000044  5052                     addq.w     [A2], 8
  27. 00000046  4F4C                     chk.w      D7, A4
  28. 00000048  4F47                     chk.w      D7, D7
  29. 0000004A  0000 4E56                ori.b      D0, 0x56 /* 'V' */
  30. 0000004E  FFFC                     .extension 0xFFC // unimplemented
  31. 00000050  487A 0088                pea.l      [PC + 0x88 /* 000000DA */]
  32. 00000054  4EAD 0912                jsr        [A5 + 0x912]
  33. 00000058  4FEF FFFC                lea.l      A7, [A7 - 0x4]
  34. 0000005C  A924                     trap       FrontWindow
  35. 0000005E  201F                     move.l     D0, [A7]+
  36. 00000060  670A                     beq        +0xC /* 0000006C */
  37. 00000062  2040                     movea.l    A0, D0
  38. 00000064  0C68 0008 006C           cmpi.w     [A0 + 0x6C], 0x8
  39. 0000006A  670A                     beq        +0xC /* 00000076 */
  40. label0000006C:
  41. 0000006C  487A 0056                pea.l      [PC + 0x56 /* 000000C4 */]
  42. 00000070  4EAD 091A                jsr        [A5 + 0x91A]
  43. 00000074  601E                     bra        +0x20 /* 00000094 */
  44. label00000076:
  45. 00000076  487A 0042                pea.l      [PC + 0x42 /* 000000BA */]
  46. 0000007A  4EAD 091A                jsr        [A5 + 0x91A]
  47. 0000007E  486E FFFC                pea.l      [A6 - 0x4]
  48. 00000082  4EAD 0A62                jsr        [A5 + 0xA62]
  49. 00000086  4AAE FFFC                tst.l      [A6 - 0x4]
  50. 0000008A  6708                     beq        +0xA /* 00000094 */
  51. 0000008C  487A 0076                pea.l      [PC + 0x76 /* 00000104 */]
  52. 00000090  4EAD 091A                jsr        [A5 + 0x91A]
  53. label00000094:
  54. 00000094  0C6D 0700 FDBE           cmpi.w     [A5 - 0x242], 0x700
  55. 0000009A  6B08                     bmi        +0xA /* 000000A4 */
  56. 0000009C  487A 0016                pea.l      [PC + 0x16 /* 000000B4 */]
  57. 000000A0  4EAD 091A                jsr        [A5 + 0x91A]
  58. label000000A4:
  59. 000000A4  42AE 0012                clr.l      [A6 + 0x12]
  60. 000000A8  4E5E                     unlink     A6
  61. 000000AA  2F57 000A                move.l     [A7 + 0xA], [A7]
  62. 000000AE  4FEF 000A                lea.l      A7, [A7 + 0xA]
  63. 000000B2  4E75                     rts
  64. 000000B4  0082 000A 0000           ori.l      D2, 0xA0000 /* '\n\0\0' */
  65. 000000BA  0081 000E 0085           ori.l      D1, 0xE0085
  66. 000000C0  0001 0000                ori.b      D1, 0x0
  67. 000000C4  0082 0001 0082           ori.l      D2, 0x10082
  68. 000000CA  0003 0082                ori.b      D3, 0x82
  69. 000000CE  0004 0082                ori.b      D4, 0x82
  70. 000000D2  0005 0082                ori.b      D5, 0x82
  71. 000000D6  0006 0000                ori.b      D6, 0x0
  72. 000000DA  0081 0001 0081           ori.l      D1, 0x10081
  73. 000000E0  0002 0081                ori.b      D2, 0x81
  74. 000000E4  0003 0081                ori.b      D3, 0x81
  75. 000000E8  000E 0085                ori.b      A6, 0x85
  76. 000000EC  0001 0085                ori.b      D1, 0x85
  77. 000000F0  0003 0082                ori.b      D3, 0x82
  78. 000000F4  000A 0081                ori.b      A2, 0x81
  79. 000000F8  0004 0081                ori.b      D4, 0x81
  80. 000000FC  0005 00AB                ori.b      D5, 0xAB
  81. 00000100  0001 0000                ori.b      D1, 0x0
  82. 00000104  0081 0001 0081           ori.l      D1, 0x10081
  83. 0000010A  0002 0085                ori.b      D2, 0x85
  84. 0000010E  0003 0000                ori.b      D3, 0x0
  85. 00000112  0081 0003 00AB           ori.l      D1, 0x300AB
  86. 00000118  0001 0000                ori.b      D1, 0x0
  87. 0000011C  8E4D                     or.w       D7, A5
  88. 0000011E  454E                     chk.w      D2, A6
  89. 00000120  5543                     subq.w     D3, 2
  90. 00000122  414C                     chk.w      D0, A4
  91. 00000124  4355                     chk.w      D1, [A5]
  92. 00000126  4C41 544F                movem.l    A6,A4,A2,D6,D3,D2,D1,D0, D1
  93. 0000012A  5220                     addq.b     -[A0], 1
  94. 0000012C  0000 4E56                ori.b      D0, 0x56 /* 'V' */
  95. 00000130  0000 42AE                ori.b      D0, 0xAE
  96. 00000134  0012 41FA                ori.b      [A2], 0xFA
  97. 00000138  0018 202E                ori.b      [A0]+, 0x2E /* '.' */
  98. 0000013C  000A 4A50                ori.b      A2, 0x50 /* 'P' */
  99. // begin alternate branch 0000013E-00000140
  100. label0000013E:
  101. 0000013E  4A50                     tst.w      [A0]
  102. // end alternate branch 0000013E-00000140
  103. label0000013E: // (misaligned)
  104. 00000140  6722                     beq        +0x24 /* 00000164 */
  105. 00000142  B098                     cmp.l      D0, [A0]+
  106. 00000144  5488                     addq.l     A0, 2
  107. 00000146  66F6                     bne        -0x8 /* 0000013E */
  108. 00000148  3028 FFFE                move.w     D0, [A0 - 0x2]
  109. 0000014C  4EFB 0002                jmp        [PC + D0.w + 0x2]
  110. 00000150  0081 000E 0070           ori.l      D1, 0xE0070
  111. 00000156  0081 0001 0058           ori.l      D1, 0x10058
  112. 0000015C  0081 0002 0064           ori.l      D1, 0x20064
  113. 00000162  0000 2D7C                ori.b      D0, 0x7C /* '|' */
  114. // begin alternate branch 00000164-00000172
  115. label00000164:
  116. 00000164  2D7C 0000 000E 0012      move.l     [A6 + 0x12], 0xE
  117. 0000016C  2B6E 000A CE98           move.l     [A5 - 0x3168], [A6 + 0xA]
  118. // end alternate branch 00000164-00000172
  119. label00000164: // (misaligned)
  120. 00000166  0000 000E                ori.b      D0, 0xE
  121. 0000016A  0012 2B6E                ori.b      [A2], 0x6E /* 'n' */
  122. 0000016E  000A CE98                ori.b      A2, 0x98
  123. 00000172  4E5E                     unlink     A6
  124. 00000174  2F57 000A                move.l     [A7 + 0xA], [A7]
  125. 00000178  4FEF 000A                lea.l      A7, [A7 + 0xA]
  126. 0000017C  4E75                     rts
  127. label0000017E:
  128. 0000017E  4267                     clr.w      -[A7]
  129. 00000180  A938                     trap       HiliteMenu
  130. 00000182  3F38 0220                move.w     -[A7], [0x00000220 /* MemErr */]
  131. 00000186  6708                     beq        +0xA /* 00000190 */
  132. 00000188  487A 0040                pea.l      [PC + 0x40 /* 000001CA */]
  133. 0000018C  4EAD 0CD2                jsr        [A5 + 0xCD2]
  134. label00000190:
  135. 00000190  548F                     addq.l     A7, 2
  136. 00000192  4E5E                     unlink     A6
  137. 00000194  2F57 000A                move.l     [A7 + 0xA], [A7]
  138. 00000198  4FEF 000A                lea.l      A7, [A7 + 0xA]
  139. 0000019C  4E75                     rts
  140. 0000019E  2D7C 0000 0009 0012      move.l     [A6 + 0x12], 0x9 /* '\t' */
  141. 000001A6  60D6                     bra        -0x28 /* 0000017E */
  142. 000001A8  4FEF FFFC                lea.l      A7, [A7 - 0x4]
  143. 000001AC  4EAD 0AF2                jsr        [A5 + 0xAF2]
  144. 000001B0  201F                     move.l     D0, [A7]+
  145. 000001B2  60CA                     bra        -0x34 /* 0000017E */
  146. 000001B4  4FEF FFFC                lea.l      A7, [A7 - 0x4]
  147. 000001B8  4EAD 0AFA                jsr        [A5 + 0xAFA]
  148. 000001BC  201F                     move.l     D0, [A7]+
  149. 000001BE  60BE                     bra        -0x40 /* 0000017E */
  150. 000001C0  2D7C 0000 0001 0012      move.l     [A6 + 0x12], 0x1
  151. 000001C8  60B4                     bra        -0x4A /* 0000017E */
  152. 000001CA  8A4D                     or.w       D5, A5
  153. 000001CC  454E                     chk.w      D2, A6
  154. 000001CE  5553                     subq.w     [A3], 2
  155. 000001D0  454C                     chk.w      D2, A4
  156. 000001D2  4543                     chk.w      D2, D3
  157. 000001D4  5420                     addq.b     -[A0], 2
  158. 000001D6  0000                     .incomplete
  159.